From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Apr 1993 17:58:37 +0000 (+0000)
Subject: (vc-match-substring): Renamed from match-substring.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96448
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=caf15d4f18205994732211381bb7331e0a2b71a8;p=emacs.git

(vc-match-substring): Renamed from match-substring.
(vc-parse-buffer): Use new name.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index cbbec3bbb5b..434f2543148 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1091,7 +1091,7 @@ From a program, any arguments are passed to the `rcs2log' script."
 
 ;; Functions for querying the master and lock files.
 
-(defun match-substring (bn)
+(defun vc-match-substring (bn)
   (buffer-substring (match-beginning bn) (match-end bn)))
 
 (defun vc-parse-buffer (patterns &optional file properties)
@@ -1107,16 +1107,16 @@ From a program, any arguments are passed to the `rcs2log' script."
 	     (if (string-match "\\\\(.*\\\\(" p)
 		 (let ((latest-date "") (latest-val))
 		   (while (re-search-forward p nil t)
-		     (let ((date (match-substring 2)))
+		     (let ((date (vc-match-substring 2)))
 		       (if (string< latest-date date)
 			   (progn
 			     (setq latest-date date)
 			     (setq latest-val
-				   (match-substring 1))))))
+				   (vc-match-substring 1))))))
 		   latest-val))
 	     (prog1
 		 (and (re-search-forward p nil t)
-		      (let ((value (match-substring 1)))
+		      (let ((value (vc-match-substring 1)))
 			(if file
 			    (vc-file-setprop file (car properties) value))
 			value))